home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / DJGPP / CBGRX103.ZIP / contrib / libgrx / src / ucircle.c < prev    next >
Text File  |  1993-12-06  |  2KB  |  57 lines
  1. /** 
  2.  ** UCIRCLE.C 
  3.  **
  4.  **  Copyright (C) 1992, Csaba Biegl
  5.  **    820 Stirrup Dr, Nashville, TN, 37221
  6.  **    csaba@vuse.vanderbilt.edu
  7.  **
  8.  **  This file is distributed under the terms listed in the document
  9.  **  "copying.cb", available from the author at the address above.
  10.  **  A copy of "copying.cb" should accompany this file; if not, a copy
  11.  **  should be available from where this file was obtained.  This file
  12.  **  may not be distributed without a verbatim copy of "copying.cb".
  13.  **  You should also have received a copy of the GNU General Public
  14.  **  License along with this program (it is in the file "copying");
  15.  **  if not, write to the Free Software Foundation, Inc., 675 Mass Ave,
  16.  **  Cambridge, MA 02139, USA.
  17.  **
  18.  **  This program is distributed in the hope that it will be useful,
  19.  **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  20.  **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21.  **  GNU General Public License for more details.
  22.  **/
  23.  
  24. #include "grx.h"
  25. #include "libgrx.h"
  26. #include "usercord.h"
  27.  
  28. static void udrawellip(int xc,int yc,int xa,int ya,int c,int filled)
  29. {
  30.     U2SX(xc,CURC);
  31.     U2SY(yc,CURC);
  32.     SCALE(xa,xa,CURC->gc_xmax,CURC->gc_usrwidth);
  33.     SCALE(ya,ya,CURC->gc_ymax,CURC->gc_usrheight);
  34.     (*(filled ? GrFilledEllipse : GrEllipse))(xc,yc,xa,ya,c);
  35. }
  36.  
  37. void GrUsrCircle(int xc,int yc,int r,int c)
  38. {
  39.     udrawellip(xc,yc,r,r,c,FALSE);
  40. }
  41.  
  42. void GrUsrFilledCircle(int xc,int yc,int r,int c)
  43. {
  44.     udrawellip(xc,yc,r,r,c,TRUE);
  45. }
  46.  
  47. void GrUsrEllipse(int xc,int yc,int xa,int ya,int c)
  48. {
  49.     udrawellip(xc,yc,xa,ya,c,FALSE);
  50. }
  51.  
  52. void GrUsrFilledEllipse(int xc,int yc,int xa,int ya,int c)
  53. {
  54.     udrawellip(xc,yc,xa,ya,c,TRUE);
  55. }
  56.  
  57.